صفحه ها
دسته
وبلاگ من در بلاگفا
عکس من
وبلاگهاي دوستان
ورودي هاي پنجره اميد
معرفي وب سايت هاي پرطرفدار
سايتهاي دوستان
لينك هاي دسترسي سريع
مطالب من در ثبت مطالب روزانه
آرشیو
آمار وبلاگ
تعداد بازدید : 575119
تعداد نوشته ها : 1492
تعداد نظرات : 394
Rss
طراح قالب
مهدي يوسفي
فرمت فایل M3U
چگونه یک فایل PlayList با پسوند M3U بسازیم

گاهی وقتی عده ی زیادی فایل را در مدیا پلیر یا وینمپ باز می کنیم یک گزینه به نام SavePlaylist
می بینیم که برای ذخیره کردن آن لیست در یک فایل استفاده می شود.اگر یک برنامه ی پخش صوت یا تصویر باکنترل مدیا پلیر نیز بنویسید برای پخش هم زمان چندین فایل به مشکل برخواهید خورد .درچنین مواقعی می توانیم با ذخیره لیست در یک فایل ام تری یو وباز کردن آن در کنترل مدیا پلیر چندین فایل را با هم پخش کرد .شاید شما بتوانید فایل هایتان را مستقیمآ به لیست مدیا پلیر احتیاج به دانستن فرمت فایل ام تری یو داریدPlayListاضافه کنید ولی باز هم برای ذخیره

با این تابع این کار را انجام دهید

Public Sub SaveList(OutPath As String,Lst as ListBox)
On Error Resume Next '--------------------------------------------------
Dim T3 As String, T2, strans As String, L As Single, i As Integer
T3 = "": T2 = ""
If Lst.List(1) = "" Then
strans = MsgBox("File Not Found!", vbCritical)
Exit Sub '------------------------------------------------------
End If
If UCase(Right(OutPath, 3)) <> "M3U" Then Exit Sub
Open OutPath For Output As #1
Print #1, "#EXTM3U:"
For i = 1 To Lst.ListCount '----------------------------
Print #1, "#EXTNIF:"
Print #1, Lst.List(i)
Next i '------------------------------------------------------
Close #1
End Sub

حال برای زخیره کردن فایل های صوتی و تصویری موجود در یک لیست تنها به دستور زیر نیاز دارید

SaveList "C:\1.M3U",List1

پنج شنبه بیست و ششم 10 1387
X